home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Workbench Add-On
/
Workbench Add-On - Volume 1.iso
/
BBS-Archive
/
Dev
/
GNU-SMALLTALK.lha
/
examples
/
CFuncs.st
next >
Wrap
Text File
|
1992-02-15
|
23KB
|
482 lines
"======================================================================
|
| SystemDictionary Method Definitions
|
======================================================================"
"======================================================================
|
| Copyright (C) 1990, 1991, 1992 Free Software Foundation, Inc.
| Written by Steve Byrne.
|
| This file is part of GNU Smalltalk.
|
| GNU Smalltalk is free software; you can redistribute it and/or modify it
| under the terms of the GNU General Public License as published by the Free
| Software Foundation; either version 1, or (at your option) any later version.
|
| GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
| ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
| FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
| details.
|
| You should have received a copy of the GNU General Public License along with
| GNU Smalltalk; see the file LICENSE. If not, write to the Free Software
| Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
|
======================================================================"
"
| Change Log
| ============================================================================
| Author Date Change
| sbyrne 8 Jul 89 Created.
|
"
Behavior defineCFunc: 'system'
withSelectorArgs: 'system: aString'
forClass: SystemDictionary
returning: #int
args: #(string)!
Behavior defineCFunc: 'getenv'
withSelectorArgs: 'getenv: aString'
forClass: SystemDictionary
returning: #string
args: #(string)!
"Below are object and method definitions used to create a simple interface
to SunView windws from GNU Smalltalk."
Smalltalk at: #SuntoolObjectTypes put: Dictionary new!
Behavior defineCFunc: 'lookupCAddr'
withSelectorArgs: 'lookupCAddr: aString'
forClass: SystemDictionary
returning: #cObject
args: #(string)!
!Dictionary methodsFor: 'testing'!
findDefsFor: anArray
anArray do:
[ :elt | self at: (elt at: 1)
put: (Smalltalk lookupCAddr: (elt at: 2)) ]
!!
Smalltalk addInit:
[ SuntoolObjectTypes findDefsFor: #(
(FrameType 'FRAME')
(PanelType 'PANEL')
(PanelMessageType 'PANEL_MESSAGE')
(PanelButtonType 'PANEL_BUTTON')
(PanelChoiceType 'PANEL_CHOICE')
(PanelSliderType 'PANEL_SLIDER')
(PanelTextType 'PANEL_TEXT')
(PanelToggleType 'PANEL_TOGGLE')
(PanelLineType 'PANEL_LINE')
)
] !
Smalltalk at: #PanelAttrs put: Dictionary new!
PanelAttrs findDefsFor: #(
(panelItemX 'PANEL_ITEM_X')
(panelItemXGap 'PANEL_ITEM_X_GAP')
(panelLabelX 'PANEL_LABEL_X')
(panelValueX 'PANEL_VALUE_X')
(panelSliderWidth 'PANEL_SLIDER_WIDTH')
(panelWidth 'PANEL_WIDTH')
(panelChoiceX 'PANEL_CHOICE_X')
(panelMarkX 'PANEL_MARK_X')
(panelChoiceXs 'PANEL_CHOICE_XS')
(panelMarkXs 'PANEL_MARK_XS')
(panelItemY 'PANEL_ITEM_Y')
(panelItemYGap 'PANEL_ITEM_Y_GAP')
(panelLabelY 'PANEL_LABEL_Y')
(panelValueY 'PANEL_VALUE_Y')
(panelHeight 'PANEL_HEIGHT')
(panelChoiceY 'PANEL_CHOICE_Y')
(panelMarkY 'PANEL_MARK_Y')
(panelChoiceYs 'PANEL_CHOICE_YS')
(panelMarkYs 'PANEL_MARK_YS')
(panelValue 'PANEL_VALUE')
(panelLabelDisplayLength 'PANEL_LABEL_DISPLAY_LENGTH')
(panelValueDisplayLength 'PANEL_VALUE_DISPLAY_LENGTH')
(panelValueStoredLength 'PANEL_VALUE_STORED_LENGTH')
(panelMinValue 'PANEL_MIN_VALUE')
(panelMaxValue 'PANEL_MAX_VALUE')
(panelChoiceOffset 'PANEL_CHOICE_OFFSET')
(panelTimerSecs 'PANEL_TIMER_SECS')
(panelTimerUsecs 'PANEL_TIMER_USECS')
(panelMenuChoiceValues 'PANEL_MENU_CHOICE_VALUES')
(panelValueUnderlined 'PANEL_VALUE_UNDERLINED')
(panelItemBoxed 'PANEL_ITEM_BOXED')
(panelLabelBold 'PANEL_LABEL_BOLD')
(panelChoicesBold 'PANEL_CHOICES_BOLD')
(panelShowItem 'PANEL_SHOW_ITEM')
(panelShowValue 'PANEL_SHOW_VALUE')
(panelShowRange 'PANEL_SHOW_RANGE')
(panelShowMenu 'PANEL_SHOW_MENU')
(panelShowMenuMark 'PANEL_SHOW_MENU_MARK')
(panelChooseOne 'PANEL_CHOOSE_ONE')
(panelAdjustable 'PANEL_ADJUSTABLE')
(panelBlinkCaret 'PANEL_BLINK_CARET')
(panelAcceptKeystroke 'PANEL_ACCEPT_KEYSTROKE')
(panelLabelShaded 'PANEL_LABEL_SHADED')
(panelToggleValue 'PANEL_TOGGLE_VALUE')
(panelNotifyLevel 'PANEL_NOTIFY_LEVEL')
(panelDisplayLevel 'PANEL_DISPLAY_LEVEL')
(panelLayout 'PANEL_LAYOUT')
(panelFeedback 'PANEL_FEEDBACK')
(panelPaint 'PANEL_PAINT')
(panelMouseState 'PANEL_MOUSE_STATE')
(panelMaskChar 'PANEL_MASK_CHAR')
(panelLabelString 'PANEL_LABEL_STRING')
(panelValueString 'PANEL_VALUE_STRING')
(panelNotifyString 'PANEL_NOTIFY_STRING')
(panelMenuTitleString 'PANEL_MENU_TITLE_STRING')
(panelName 'PANEL_NAME')
(panelChoiceStrings 'PANEL_CHOICE_STRINGS')
(panelMenuChoiceStrings 'PANEL_MENU_CHOICE_STRINGS')
(panelChoiceString 'PANEL_CHOICE_STRING')
(panelLabelImage 'PANEL_LABEL_IMAGE')
(panelMenuTitleImage 'PANEL_MENU_TITLE_IMAGE')
(panelMenuMarkImage 'PANEL_MENU_MARK_IMAGE')
(panelMenuNomarkImage 'PANEL_MENU_NOMARK_IMAGE')
(panelTypeImage 'PANEL_TYPE_IMAGE')
(panelChoiceImages 'PANEL_CHOICE_IMAGES')
(panelMenuChoiceImages 'PANEL_MENU_CHOICE_IMAGES')
(panelMarkImages 'PANEL_MARK_IMAGES')
(panelNomarkImages 'PANEL_NOMARK_IMAGES')
(panelChoiceImage 'PANEL_CHOICE_IMAGE')
(panelMarkImage 'PANEL_MARK_IMAGE')
(panelNomarkImage 'PANEL_NOMARK_IMAGE')
(panelLabelFont 'PANEL_LABEL_FONT')
(panelValueFont 'PANEL_VALUE_FONT')
(panelMenuTitleFont 'PANEL_MENU_TITLE_FONT')
(panelFont 'PANEL_FONT')
(panelChoiceFonts 'PANEL_CHOICE_FONTS')
(panelMenuChoiceFonts 'PANEL_MENU_CHOICE_FONTS')
(panelNotifyProc 'PANEL_NOTIFY_PROC')
(panelTimerProc 'PANEL_TIMER_PROC')
(panelEventProc 'PANEL_EVENT_PROC')
(panelBackgroundProc 'PANEL_BACKGROUND_PROC')
(panelItemRect 'PANEL_ITEM_RECT')
(panelPixwin 'PANEL_PIXWIN')
(panelClientData 'PANEL_CLIENT_DATA')
(panelVerticalScrollbar 'PANEL_VERTICAL_SCROLLBAR')
(panelHorizontalScrollbar 'PANEL_HORIZONTAL_SCROLLBAR')
(panelCursor 'PANEL_CURSOR')
(panelCaretItem 'PANEL_CARET_ITEM')
(panelFirstItem 'PANEL_FIRST_ITEM')
(panelNextItem 'PANEL_NEXT_ITEM')
(panelParentPanel 'PANEL_PARENT_PANEL')
)
!
Smalltalk at: #FrameAttrs put: Dictionary new!
FrameAttrs findDefsFor: #(
(frameClosed 'FRAME_CLOSED')
(frameInheritColors 'FRAME_INHERIT_COLORS')
(frameShowLabel 'FRAME_SHOW_LABEL')
(frameSubwindowsAdjustable 'FRAME_SUBWINDOWS_ADJUSTABLE')
(frameLabel 'FRAME_LABEL')
(frameForegroundColor 'FRAME_FOREGROUND_COLOR')
(frameBackgroundColor 'FRAME_BACKGROUND_COLOR')
(frameIcon 'FRAME_ICON')
(frameClosedX 'FRAME_CLOSED_X')
(frameClosedY 'FRAME_CLOSED_Y')
(frameClosedRect 'FRAME_CLOSED_RECT')
(frameCurrentRect 'FRAME_CURRENT_RECT')
(frameOpenRect 'FRAME_OPEN_RECT')
(frameArgs 'FRAME_ARGS')
(frameArgcPtrArgv 'FRAME_ARGC_PTR_ARGV')
(frameCmdlineHelpProc 'FRAME_CMDLINE_HELP_PROC')
(frameBorderStyle 'FRAME_BORDER_STYLE')
(frameEmboldenLabel 'FRAME_EMBOLDEN_LABEL')
(frameNthWindow 'FRAME_NTH_WINDOW')
(frameNthSubwindow 'FRAME_NTH_SUBWINDOW')
(frameNthSubframe 'FRAME_NTH_SUBFRAME')
(frameDoneProc 'FRAME_DONE_PROC')
(frameDefaultDoneProc 'FRAME_DEFAULT_DONE_PROC')
(frameNoConfirm 'FRAME_NO_CONFIRM')
(frameNullAttr 'FRAME_NULL_ATTR')
)
!
Smalltalk at: #CanvasAttrs put: Dictionary new!
CanvasAttrs findDefsFor: #(
(canvasPixwin 'CANVAS_PIXWIN')
(canvasLeft 'CANVAS_LEFT')
(canvasTop 'CANVAS_TOP')
(canvasWidth 'CANVAS_WIDTH')
(canvasHeight 'CANVAS_HEIGHT')
(canvasDepth 'CANVAS_DEPTH')
(canvasMargin 'CANVAS_MARGIN')
(canvasRetained 'CANVAS_RETAINED')
(canvasFixedImage 'CANVAS_FIXED_IMAGE')
(canvasRepaintProc 'CANVAS_REPAINT_PROC')
(canvasResizeProc 'CANVAS_RESIZE_PROC')
(canvasAutoClear 'CANVAS_AUTO_CLEAR')
(canvasAutoExpand 'CANVAS_AUTO_EXPAND')
(canvasAutoShrink 'CANVAS_AUTO_SHRINK')
(canvasFastMono 'CANVAS_FAST_MONO')
)
!
Smalltalk at: #WindowAttrs put: Dictionary new!
WindowAttrs findDefsFor: #(
(winErrorMsg 'WIN_ERROR_MSG')
(winX 'WIN_X')
(winY 'WIN_Y')
(winRightOf 'WIN_RIGHT_OF')
(winBelow 'WIN_BELOW')
(winWidth 'WIN_WIDTH')
(winHeight 'WIN_HEIGHT')
(winPercentWidth 'WIN_PERCENT_WIDTH')
(winPercentHeight 'WIN_PERCENT_HEIGHT')
(winColumns 'WIN_COLUMNS')
(winRows 'WIN_ROWS')
(winRect 'WIN_RECT')
(winScreenRect 'WIN_SCREEN_RECT')
(winFitHeight 'WIN_FIT_HEIGHT')
(winFitWidth 'WIN_FIT_WIDTH')
(winShow 'WIN_SHOW')
(winMenu 'WIN_MENU')
(winCursor 'WIN_CURSOR')
(winHorizontalScrollbar 'WIN_HORIZONTAL_SCROLLBAR')
(winVerticalScrollbar 'WIN_VERTICAL_SCROLLBAR')
(winEventProc 'WIN_EVENT_PROC')
(winInputDesignee 'WIN_INPUT_DESIGNEE')
(winGrabAllInput 'WIN_GRAB_ALL_INPUT')
(winKbdInputMask 'WIN_KBD_INPUT_MASK')
(winConsumeKbdEvent 'WIN_CONSUME_KBD_EVENT')
(winIgnoreKbdEvent 'WIN_IGNORE_KBD_EVENT')
(winConsumeKbdEvents 'WIN_CONSUME_KBD_EVENTS')
(winIgnoreKbdEvents 'WIN_IGNORE_KBD_EVENTS')
(winPickInputMask 'WIN_PICK_INPUT_MASK')
(winConsumePickEvent 'WIN_CONSUME_PICK_EVENT')
(winIgnorePickEvent 'WIN_IGNORE_PICK_EVENT')
(winConsumePickEvents 'WIN_CONSUME_PICK_EVENTS')
(winIgnorePickEvents 'WIN_IGNORE_PICK_EVENTS')
(winFont 'WIN_FONT')
(winTopMargin 'WIN_TOP_MARGIN')
(winBottomMargin 'WIN_BOTTOM_MARGIN')
(winLeftMargin 'WIN_LEFT_MARGIN')
(winRightMargin 'WIN_RIGHT_MARGIN')
(winRowHeight 'WIN_ROW_HEIGHT')
(winColumnWidth 'WIN_COLUMN_WIDTH')
(winRowGap 'WIN_ROW_GAP')
(winColumnGap 'WIN_COLUMN_GAP')
(winType 'WIN_TYPE')
(winOwner 'WIN_OWNER')
(winName 'WIN_NAME')
(winClientData 'WIN_CLIENT_DATA')
(winImplData 'WIN_IMPL_DATA')
(winFd 'WIN_FD')
(winDeviceName 'WIN_DEVICE_NAME')
(winDeviceNumber 'WIN_DEVICE_NUMBER')
(winPixwin 'WIN_PIXWIN')
(winMouseXy 'WIN_MOUSE_XY')
(winShowUpdates 'WIN_SHOW_UPDATES')
(winObject 'WIN_OBJECT')
(winGetProc 'WIN_GET_PROC')
(winSetProc 'WIN_SET_PROC')
(winPresetProc 'WIN_PRESET_PROC')
(winPostsetProc 'WIN_POSTSET_PROC')
(winLayoutProc 'WIN_LAYOUT_PROC')
(winNotifyDestroyProc 'WIN_NOTIFY_DESTROY_PROC')
(winNotifyEventProc 'WIN_NOTIFY_EVENT_PROC')
(winDefaultEventProc 'WIN_DEFAULT_EVENT_PROC')
(winCreated 'WIN_CREATED')
(winCompatibility 'WIN_COMPATIBILITY')
(winCompatibilityInfo 'WIN_COMPATIBILITY_INFO')
(winRegister 'WIN_REGISTER')
(winNotifyInfo 'WIN_NOTIFY_INFO')
(winNullAttr 'WIN_NULL_ATTR')
(winKbdFocus 'WIN_KBD_FOCUS')
(winEventState 'WIN_EVENT_STATE')
)
!
Smalltalk at: #TextswAttrs put: Dictionary new!
TextswAttrs findDefsFor: #(
(textswAdjustIsPendingDelete 'TEXTSW_ADJUST_IS_PENDING_DELETE')
(textswAgainLimit 'TEXTSW_AGAIN_LIMIT')
(textswAgainRecording 'TEXTSW_AGAIN_RECORDING')
(textswAutoIndent 'TEXTSW_AUTO_INDENT')
(textswAutoScrollBy 'TEXTSW_AUTO_SCROLL_BY')
(textswBlinkCaret 'TEXTSW_BLINK_CARET')
(textswBrowsing 'TEXTSW_BROWSING')
(textswCheckpointFrequency 'TEXTSW_CHECKPOINT_FREQUENCY')
(textswClientData 'TEXTSW_CLIENT_DATA')
(textswConfirmOverwrite 'TEXTSW_CONFIRM_OVERWRITE')
(textswContents 'TEXTSW_CONTENTS')
(textswControlCharsUseFont 'TEXTSW_CONTROL_CHARS_USE_FONT')
(textswDestroyAllViews 'TEXTSW_DESTROY_ALL_VIEWS')
(textswDisableCd 'TEXTSW_DISABLE_CD')
(textswDisableLoad 'TEXTSW_DISABLE_LOAD')
(textswEditBackChar 'TEXTSW_EDIT_BACK_CHAR')
(textswEditBackLine 'TEXTSW_EDIT_BACK_LINE')
(textswEditBackWord 'TEXTSW_EDIT_BACK_WORD')
(textswEditCount 'TEXTSW_EDIT_COUNT')
(textswErrorMsg 'TEXTSW_ERROR_MSG')
(textswEsCreateProc 'TEXTSW_ES_CREATE_PROC')
(textswFile 'TEXTSW_FILE')
(textswFont 'TEXTSW_FONT')
(textswHeight 'TEXTSW_HEIGHT')
(textswHistoryLimit 'TEXTSW_HISTORY_LIMIT')
(textswIgnoreLimit 'TEXTSW_IGNORE_LIMIT')
(textswInsertMakesVisible 'TEXTSW_INSERT_MAKES_VISIBLE')
(textswInsertOnly 'TEXTSW_INSERT_ONLY')
(textswInsertionPoint 'TEXTSW_INSERTION_POINT')
(textswLength 'TEXTSW_LENGTH')
(textswLoadDirIsCd 'TEXTSW_LOAD_DIR_IS_CD')
(textswLowerContext 'TEXTSW_LOWER_CONTEXT')
(textswMemoryMaximum 'TEXTSW_MEMORY_MAXIMUM')
(textswMenu 'TEXTSW_MENU')
(textswModified 'TEXTSW_MODIFIED')
(textswMultiClickSpace 'TEXTSW_MULTI_CLICK_SPACE')
(textswMultiClickTimeout 'TEXTSW_MULTI_CLICK_TIMEOUT')
(textswMustShowCaret 'TEXTSW_MUST_SHOW_CARET')
(textswName 'TEXTSW_NAME')
(textswNameToUse 'TEXTSW_NAME_TO_USE')
(textswNoResetToScratch 'TEXTSW_NO_RESET_TO_SCRATCH')
(textswNoSelectionService 'TEXTSW_NO_SELECTION_SERVICE')
(textswNotifyLevel 'TEXTSW_NOTIFY_LEVEL')
(textswNotifyProc 'TEXTSW_NOTIFY_PROC')
(textswPixwin 'TEXTSW_PIXWIN')
(textswReadOnly 'TEXTSW_READ_ONLY')
(textswResetMode 'TEXTSW_RESET_MODE')
(textswStatus 'TEXTSW_STATUS')
(textswStoreChangesFile 'TEXTSW_STORE_CHANGES_FILE')
(textswStoreSelfIsSave 'TEXTSW_STORE_SELF_IS_SAVE')
(textswTabWidth 'TEXTSW_TAB_WIDTH')
(textswTool 'TEXTSW_TOOL')
(textswUpperContext 'TEXTSW_UPPER_CONTEXT')
(textswWidth 'TEXTSW_WIDTH')
(textswCoalesceWith 'TEXTSW_COALESCE_WITH')
(textswEndAllViews 'TEXTSW_END_ALL_VIEWS')
(textswForAllViews 'TEXTSW_FOR_ALL_VIEWS')
(textswFirst 'TEXTSW_FIRST')
(textswFirstLine 'TEXTSW_FIRST_LINE')
(textswLeftMargin 'TEXTSW_LEFT_MARGIN')
(textswLineBreakAction 'TEXTSW_LINE_BREAK_ACTION')
(textswRightMargin 'TEXTSW_RIGHT_MARGIN')
(textswScrollbar 'TEXTSW_SCROLLBAR')
(textswUpdateScrollbar 'TEXTSW_UPDATE_SCROLLBAR')
(textswSpare1 'TEXTSW_SPARE_1')
(textswSpare2 'TEXTSW_SPARE_2')
)
!
Smalltalk at: #MenuAttrs put: Dictionary new!
MenuAttrs findDefsFor: #(
(menuActionProc 'MENU_ACTION_PROC')
(menuAction 'MENU_ACTION')
(menuActionImage 'MENU_ACTION_IMAGE')
(menuActionItem 'MENU_ACTION_ITEM')
(menuAppendItem 'MENU_APPEND_ITEM')
(menuAppend 'MENU_APPEND')
(menuBoxed 'MENU_BOXED')
(menuCenter 'MENU_CENTER')
(menuClientData 'MENU_CLIENT_DATA')
(menuColumnMajor 'MENU_COLUMN_MAJOR')
(menuDefault 'MENU_DEFAULT')
(menuDefaultItem 'MENU_DEFAULT_ITEM')
(menuDefaultImage 'MENU_DEFAULT_IMAGE')
(menuDisableItem 'MENU_DISABLE_ITEM')
(menuDefaultSelection 'MENU_DEFAULT_SELECTION')
(menuDescendFirst 'MENU_DESCEND_FIRST')
(menuFeedback 'MENU_FEEDBACK')
(menuFirstEvent 'MENU_FIRST_EVENT')
(menuFont 'MENU_FONT')
(menuGenPullright 'MENU_GEN_PULLRIGHT')
(menuGenPullrightImage 'MENU_GEN_PULLRIGHT_IMAGE')
(menuGenPullrightItem 'MENU_GEN_PULLRIGHT_ITEM')
(menuGenProc 'MENU_GEN_PROC')
(menuGenProcImage 'MENU_GEN_PROC_IMAGE')
(menuGenProcItem 'MENU_GEN_PROC_ITEM')
(menuHeight 'MENU_HEIGHT')
(menuImage 'MENU_IMAGE')
(menuImageItem 'MENU_IMAGE_ITEM')
(menuImages 'MENU_IMAGES')
(menuInitialSelection 'MENU_INITIAL_SELECTION')
(menuInitialSelectionSelected 'MENU_INITIAL_SELECTION_SELECTED')
(menuInitialSelectionExpanded 'MENU_INITIAL_SELECTION_EXPANDED')
(menuInactive 'MENU_INACTIVE')
(menuInsert 'MENU_INSERT')
(menuInsertItem 'MENU_INSERT_ITEM')
(menuItem 'MENU_ITEM')
(menuInvert 'MENU_INVERT')
(menuJumpAfterSelection 'MENU_JUMP_AFTER_SELECTION')
(menuJumpAfterNoSelection 'MENU_JUMP_AFTER_NO_SELECTION')
(menuLastEvent 'MENU_LAST_EVENT')
(menuLeftMargin 'MENU_LEFT_MARGIN')
(menuLike 'MENU_LIKE')
(menuMargin 'MENU_MARGIN')
(menuMenu 'MENU_MENU')
(menuNitems 'MENU_NITEMS')
(menuNotifyProc 'MENU_NOTIFY_PROC')
(menuNthItem 'MENU_NTH_ITEM')
(menuNcols 'MENU_NCOLS')
(menuNrows 'MENU_NROWS')
(menuParent 'MENU_PARENT')
(menuPullright 'MENU_PULLRIGHT')
(menuPullrightDelta 'MENU_PULLRIGHT_DELTA')
(menuPullrightImage 'MENU_PULLRIGHT_IMAGE')
(menuPullrightItem 'MENU_PULLRIGHT_ITEM')
(menuRelease 'MENU_RELEASE')
(menuReleaseImage 'MENU_RELEASE_IMAGE')
(menuRemove 'MENU_REMOVE')
(menuRemoveItem 'MENU_REMOVE_ITEM')
(menuReplace 'MENU_REPLACE')
(menuReplaceItem 'MENU_REPLACE_ITEM')
(menuRightMargin 'MENU_RIGHT_MARGIN')
(menuSelected 'MENU_SELECTED')
(menuSelectedItem 'MENU_SELECTED_ITEM')
(menuShadow 'MENU_SHADOW')
(menuStayUp 'MENU_STAY_UP')
(menuString 'MENU_STRING')
(menuStringItem 'MENU_STRING_ITEM')
(menuStrings 'MENU_STRINGS')
(menuTitleItem 'MENU_TITLE_ITEM')
(menuTitleImage 'MENU_TITLE_IMAGE')
(menuType 'MENU_TYPE')
(menuValidResult 'MENU_VALID_RESULT')
(menuValue 'MENU_VALUE')
(menuWidth 'MENU_WIDTH')
(menuNop 'MENU_NOP')
(menuButton 'MENU_BUTTON')
(menuFd 'MENU_FD')
(menuIe 'MENU_IE')
(menuPos 'MENU_POS')
)
!
Smalltalk at: #IconAttrs put: Dictionary new!
IconAttrs findDefsFor: #(
(iconX 'ICON_X')
(iconY 'ICON_Y')
(iconWidth 'ICON_WIDTH')
(iconHeight 'ICON_HEIGHT')
(iconImageRect 'ICON_IMAGE_RECT')
(iconLabelRect 'ICON_LABEL_RECT')
(iconImage 'ICON_IMAGE')
(iconLabel 'ICON_LABEL')
(iconFont 'ICON_FONT')
)
!